home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / basic / acesource.lha / Inputbox.b < prev    next >
Encoding:
Text File  |  1998-10-27  |  291 b   |  22 lines
  1.  
  2. /*    
  3.     By Magnus Lundin 27 oktober 1998
  4.     All rights reserved by Hippomus!
  5.  
  6. */    
  7.  
  8.  
  9. #include <stdio.h>
  10.  
  11. beep
  12. a$=Inputbox$("Enter a word:","Magnus frågar","",200,100)
  13. If a$="" then
  14.      puts("you did not write anything?")
  15.     puts("Are you lame or something?")
  16. Else
  17.  
  18.     puts("You write:"+a$)
  19. end if
  20. end
  21.  
  22.